home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Neurons / all-in-parallel < prev    next >
Text File  |  1998-10-23  |  943b  |  31 lines
  1. all-in-parallel inputs search-patterns range-low range high &optional pos
  2.  
  3. all-in-parallel searches from a given list of inputs a given list of patterns in a given range at given position.
  4.  
  5. The following finds if there is are parallel patterns a b and a c in two inputs in range of +-10 transposition positions.
  6.  
  7. (def-neuron rules
  8.   (all-in-parallel '(1 2) '((a b) (a c)) -10 10) 'x
  9.   (otherwise '=)
  10. )
  11.  
  12. (run-neuron 'rules 
  13.             '(a b c d)
  14.             '(a c c e))
  15. --> (x = x =)
  16.  
  17. Where? Here:
  18.  
  19.             '(a b c d)
  20.             '(a c c e))
  21.               ---
  22.               x
  23.                 ---
  24.                 =
  25.                   ---  c d has same range as a b
  26.                   x    c e has same range as a c
  27.                     ---
  28.                     =
  29.                 
  30. This function is useful when you are writing fugue engines, which are recognising forms in multiple parallel instrument lines, and firing an output based on those.
  31.